home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 051-075 / 073 / parout / getfreemisc.asm next >
Assembly Source File  |  1995-03-13  |  1KB  |  39 lines
  1. ******************************************************************************
  2. * getfreemisc.asm - interface routines for misc.resource
  3. * 
  4. * Phillip Lindsay (c) 1987 Commodore-Amiga, Inc. 
  5. *     Unlimited use granted as long as copyright notice remains intact.        
  6. *
  7. ******************************************************************************
  8.  
  9.     INCLUDE    'exec/types.i'
  10.     INCLUDE    'exec/libraries.i'
  11.     INCLUDE 'resources/misc.i'
  12.     
  13.     XDEF    _GetMiscResource
  14.     XDEF    _FreeMiscResource
  15.  
  16. _GetMiscResource:
  17.     movem.l    a4/a6,-(sp)
  18.     move.l    20(sp),a1    ; name
  19.     move.l    16(sp),d0    ; unit
  20.     move.l    12(sp),a6    ; misc resource pointer
  21.     jsr    MR_ALLOCMISCRESOURCE(a6)
  22.     movem.l    (sp)+,a4/a6
  23.     rts
  24.  
  25. _FreeMiscResource:
  26.     movem.l    a4/a6,-(sp)
  27.     move.l    12(sp),a6    ; misc resource pointer
  28.     move.l    16(sp),d0    ; unit
  29.     jsr    MR_FREEMISCRESOURCE(a6)
  30.     movem.l    (sp)+,a4/a6
  31.     rts
  32.  
  33.     end    
  34. *****************************************************************************
  35. *
  36. * end of getfreemisc.asm
  37. *
  38. *****************************************************************************
  39.